home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 November / CMCD1104.ISO / Software / Freeware / Comunicatii / enigma / esetup.exe / %17€ / ExtractSearchEngine.js < prev    next >
Encoding:
Text File  |  2003-06-20  |  984 b   |  52 lines
  1. ExtractSearchEngine();
  2. function ExtractSearchEngine()
  3. {
  4.     var topBody = top.document.body;
  5.     var vForm=GetActiveForm();
  6.     var vDoc=eval(vForm.path+".document");
  7.     vDoc.activeElement.value="sbTestKeyword";
  8.     topBody.sbFormMethod=vForm.method;
  9.     topBody.sbActiveForm=vForm;
  10.     SubmitForm(vForm);
  11. }
  12.  
  13. function GetActiveForm()
  14. {
  15.     var vForm;
  16.     vForm=GetActiveFormEx("top",true);
  17.     if (vForm==null) vForm=GetActiveFormEx("top",false);
  18.     return vForm;
  19. }
  20.  
  21. function GetActiveFormEx(path,bActive)
  22. {
  23.     var vWindow=eval(path);
  24.     var vDocument=vWindow.document;
  25.     var vForm;
  26.     if (bActive)
  27.     {
  28.         vForm=vDocument.activeElement.form;
  29.         if (vForm!=null) 
  30.         {
  31.             vForm.path=path;
  32.             return vForm;
  33.         }
  34.     }
  35.     else 
  36.     {
  37.         vForm=vDocument.forms[0];
  38.         if (vForm!=null) 
  39.         {
  40.             vForm.path=path;
  41.             return vForm;
  42.         }
  43.     }
  44.     for(var i=0; i<vWindow.frames.length; i++ )
  45.     {
  46.         vForm=GetActiveFormEx(path+".frames["+i+"]",bActive);
  47.         if (vForm!=null) return vForm;
  48.     }
  49.     return null;
  50. }
  51.  
  52.